home *** CD-ROM | disk | FTP | other *** search
/ MacGames Sampler / PHT MacGames Bundle.iso / MacSource Folder / Samples from the CD / Editors / emacs / Emacs-1.14b1 / lisp / mac / Scrap.el < prev    next >
Encoding:
Text File  |  1994-01-17  |  928 b   |  38 lines  |  [TEXT/EMAC]
  1. ;;;
  2. ;;; This file is part of a Macintosh port of GNU Emacs.
  3. ;;; Copyright (C) 1993, 1994 Marc Parmet.  All rights reserved.
  4. ;;;
  5. ;;; GNU Emacs is distributed in the hope that it will be useful,
  6. ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  7. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  8. ;;; GNU General Public License for more details.
  9. ;;;
  10.  
  11. ;pascal long ZeroScrap(void)
  12. ;    = 0xA9FC; 
  13. (deftrap ZeroScrap ("a9fc")
  14.   ()
  15.   long)
  16.  
  17. ;pascal long PutScrap(long length,ResType theType,Ptr source)
  18. ;    = 0xA9FE; 
  19. (deftrap PutScrap ("a9fe")
  20.   ((length long)
  21.    (theType immediate-string)
  22.    (source address))
  23.   long)
  24.  
  25. ;pascal long GetScrap(Handle hDest,ResType theType,long *offset)
  26. ;    = 0xA9FD; 
  27. (deftrap GetScrap ("a9fd")
  28.   ((hDest long)
  29.    (theType immediate-string)
  30.    (offset address))
  31.   long)
  32.  
  33. ; pascal PScrapStuff InfoScrap(void)
  34. ;    = 0xA9F9; 
  35. (deftrap InfoScrap ("a9f9")
  36.   nil
  37.   long)
  38.